{NeoBook Function}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################

Language=VBScript
Comment=To obtain a list of file properties
Param=[%1]|Text|The path to the folder with the file
Param=[%2]|Text|File name
Param=%0|Variable|Output array name
{End}
On Error Resume Next
Dim propNames(37), propValues(37)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("[%1]")
Set objItem = objFolder.Items.Item("[%2]")
lstProperties = vbNullString
For i = LBound(propNames) to UBound(propNames)
    propNames(i) = objFolder.GetDetailsOf(objFolder.Items, i)
    propValues(i) = objFolder.GetDetailsOf (objItem, i)
    lstProperties = lstProperties & i & ": " & propNames(i) & " = " & propValues(i) & vbCr
Next
   publication.nbSetVar "%0",lstProperties
